home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / UTILS.PAK / OPTIONS.POP < prev    next >
Encoding:
Text File  |  1995-07-18  |  2.1 KB  |  71 lines
  1. *******************************************************************************
  2. * PROGRAM:     Options.pop
  3. *
  4. * WRITTEN BY:  Borland Samples Group
  5. *
  6. * DATE:        3/95
  7. *
  8. * UPDATED:     5/95
  9. *
  10. * REVISION:    $Revision:   1.4  $
  11. *
  12. * VERSION:     Visual dBASE
  13. *
  14. * DESCRIPTION: This is a simple options popup that allows changing fonts,
  15. *              colors, and also could bring up a tool dialog for modifying
  16. *              other form properties.   (Tool and font modifications aren't
  17. *              implemented yet.  The popup will appear whenever you right
  18. *              click on the form.
  19. *
  20. * PARAMETERS:  None
  21. *
  22. * CALLS:       None
  23. *
  24. * USAGE:       Set Procedure to Options.pop additive
  25. *              form.popupMenu = new OptionsPopup(form, "popup1")
  26. *
  27. ********************************************************************************
  28.  
  29. ** END HEADER -- do not remove this line*
  30. * Generated on 02/03/95
  31. *
  32. Parameter FormObj,PopupName
  33. NEW OPTIONSPOPUP(FormObj,PopupName)
  34. CLASS OPTIONSPOPUP(FormObj,PopupName) OF POPUP(FormObj,PopupName)
  35.    this.TrackRight = .T.
  36.    this.Left = 0
  37.    this.Top = 0
  38.  
  39.    DEFINE MENU TOOLS OF THIS;
  40.        PROPERTY;
  41.          Enabled .F.,;
  42.          Text "Tools...",;
  43.          OnClick CLASS::TOOLS_ONCLICK
  44.  
  45.    DEFINE MENU COLOR OF THIS;
  46.        PROPERTY;
  47.          Enabled .T.,;
  48.          Text "Color...",;
  49.          OnClick CLASS::COLOR_ONCLICK
  50.  
  51.    ****************************************************************************
  52.    Procedure COLOR_OnClick
  53.  
  54.    * Changes background color of form and tabboxes
  55.    ****************************************************************************
  56.    private formColorValue
  57.    formColorValue = GetColor()
  58.    define color formColor &formColorValue
  59.    form.colorNormal = "formColor/formColor"
  60.  
  61.    form.pageTabbox.colorNormal = "n/formColor"
  62.    form.sqlDbaseTabbox.colorNormal = "r/formColor"
  63.  
  64.  
  65.    ****************************************************************************
  66.    Procedure TOOLS_OnClick
  67.    ****************************************************************************
  68.    *do ToolOps.wfm with .T.     && Bring up tool form modally
  69.  
  70. ENDCLASS
  71.